home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / sys finder (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  98 lines
  1. 10 rem ********************************
  2. 12 rem *      <<< sys finder >>>      *
  3. 14 rem *          ----------          *
  4. 16 rem *                              *
  5. 18 rem * by: robert e. taylor         *
  6. 20 rem *     210 durso drive          *
  7. 22 rem *     newark, del 19711        *
  8. 24 rem *      (302) 738-3430          *
  9. 26 rem *                              *
  10. 28 rem * this program is for the      *
  11. 30 rem * folks at ncug and also       *
  12. 32 rem * for all other commodore      *
  13. 34 rem * users and is in the          *
  14. 36 rem * public domain for all.       *
  15. 38 rem *                              *
  16. 40 rem *                              *
  17. 42 rem * if there are any questions   *
  18. 44 rem * please contact above. if it  *
  19. 46 rem * does not work then fix it!   *
  20. 48 rem *                              *
  21. 50 rem * note: if you enter a 'prg'   *
  22. 52 rem *       type file from         *
  23. 54 rem *       a word processer then  *
  24. 56 rem *       these will not "run"   *
  25. 58 rem *       even though the load   *
  26. 60 rem *       address is 2049 and    *
  27. 62 rem *       the message says they  *
  28. 64 rem *       are basic programs.    *
  29. 66 rem *                              *
  30. 68 rem *                              *
  31. 70 rem ********************************
  32. 100 poke53280,9:poke53281,1:poke646,5
  33. 110 print"[147]intializing drive"
  34. 120 open15,8,15,"i0":close15
  35. 130 print"[147]           ******************"
  36. 140 print"           *** sys finder ***"
  37. 150 print"           *** [183][183][183][183][183][183][183][183][183][183] ***"
  38. 160 print"           *** [183][183][169]    [223][183][183] ***"
  39. 170 print"           ***     by     ***"
  40. 180 print"           *** bob taylor ***"
  41. 190 print"           ******************"
  42. 200 print"[152]    if you ever forget the sys then"
  43. 210 print"    this program will be of help."
  44. 220 print"     this program gives you the sys
  45. 230 [153]"        number you need to run a
  46. 240 print"        machine language program."
  47. 250 print"[151]     it will also tell you if the
  48. 260 [153]"    program is just a basic program."
  49. 270 [153]"   enter program name and hit return"
  50. 280 flag[178]0:pn$[178]"":[133]"  program name:";pn$
  51. 290 [141] 550
  52. 300 [139] flag[178]1[167]120
  53. 310 [159]1,8,2,pn$[170]",p,r"
  54. 320 [141]570:[139] flag[178]1[167]490
  55. 330 [161]#1,x$:[139]x$[178]""[167]x$[178][199](0)
  56. 340 lb[178][198](x$)
  57. 350 [161]#1,x$:[139]x$[178]""[167]x$[178][199](0)
  58. 360 hb[178][198](x$)
  59. 370 [160]1:[160]15
  60. 380 ad[178]hb[172]256[170]lb
  61. 390 [139]ad[179][177]2049[167]450
  62. 400 [153]"load print#the load address for: ";pn$
  63. 410 [153]"                      is ";ad
  64. 420 [153]"poke this is a  basic wait program and is to be"
  65. 430 [153]" loaded and run in normal way."
  66. 440 [137]490
  67. 450 [153]"load print#the load address for: ";pn$
  68. 460 [153]"                      is ";ad
  69. 470 [153]"poke this is the sys number you need for"
  70. 480 [153]" this machine language program."
  71. 490 [153]" do you want to try another (y/n)"
  72. 500 [161]a$:[139]a$[178]""[167]500
  73. 510 [139]a$[178]"y"[167]120
  74. 520 [139]a$[178]"n"[167]540
  75. 530 [139]a$[179][177]"y"[176]a$[179][177]"n"[167]500
  76. 540 [137]63000
  77. 550 [139][195](pn$)[179]1[176][195](pn$)[177]16[167][153]"              invalid name":flag[178]1
  78. 560 [129]x[178]1[164]2000:[130]:[142]
  79. 570 [159]15,8,15
  80. 580 [132]15,en,em$,t,s
  81. 590 [139]en[178]0[167][142]
  82. 600 [153]"load error message"
  83. 610 [153]" for program name:";pn$
  84. 620 [153]"";en;em$;t;s
  85. 630 [153]"print# check spelling if you got"
  86. 640 [153]" file not found"
  87. 650 [153]" if error is file type mismatch"
  88. 660 [153]" then that name is for a seq, usr"
  89. 670 [153]" or rel file."
  90. 680 [153]"poke any other error indicates that"
  91. 690 [153]" something is wrong!"
  92. 700 [153]" check your manual if you are not"
  93. 710 [153]" sure what the message means."
  94. 720 [160]1:[160]15:flag[178]1:[142]
  95. 63000 [143]     link back
  96. 63010 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  97. 63020 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]
  98.